`%||%` <- function(x, y) {
  if (is.null(x) || all(is.na(x))) {
    y
  } else {
    x
  }
}
